﻿Imports System.Configuration
Public Class ADLogin

    Public Sub RealizarLogin(ByVal usuario As Usuario)

        Using con As New FirebirdSql.Data.FirebirdClient.FbConnection(ConfigurationManager.ConnectionStrings("CONN").ConnectionString)
            Using cmd As New FirebirdSql.Data.FirebirdClient.FbCommand("SELECT * FROM TESTE", con)
                Dim dr As FirebirdSql.Data.FirebirdClient.FbDataReader
                con.Open()
                dr = cmd.ExecuteReader()
            End Using
        End Using
    End Sub

End Class
